perm filename Q.LAP[4,KMC] blob
sn#043948 filedate 1973-05-22 generic text, type T, neo UTF8
(LAP SLASHIFY SUBR)
(PUSH P 1)
(PUSH P 1)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E NCONS))
(PUSH P 1)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -3 P)
(JUMPN 1 TAG6)
(HRRZ@ 1 -2 P)
(JRST 0 TAG2)
TAG6 (HLRZ@ 1 -3 P)
(MOVEM 1 0 P)
(HRRZ@ 1 -3 P)
(MOVEM 1 -3 P)
(PUSH P (C 0 0 TAG7 0))
(PUSH P -2 P)
(MOVE 1 -2 P)
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE //))
(CALL 2 (E XCONS))
(PUSH P 1)
(MOVEM 1 -4 P)
(MOVNI 6 2)
(JCALL 16 (E NCONC))
TAG7 (JRST 0 TAG1)
TAG2 (SUB P (C 0 0 5 5))
(POPJ P)
NIL